Dim objshell
Dim ex_date,host,pwd,strComputer,objWMIService,objMSSQLService,state    
set objshell=CreateObject("Wscript.shell")
objshell.run("%comspec% /c XCopy D:\workspace\Orchard.test\Orchard.Test\TestData\RecipeFile\" &_
"TestThemeWithRcipeFile D:\workspace\Orchard\src\Orchard.Web\Themes /S /E /Y"),1,true
'DesPath: D:\workspace\Orchard\src\Orchard.Web\Themes
'Wscript.echo "Copy test themes from testData to Orchard.Web Ok!"
Wscript.quit